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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG7A26 ** MAP EC HISTORY ** 002500 2EBC 198 DC A(ENTPT POINT TO MAP ENTRY POINT TABLE 
TESS LSPS LS SSS SLT SS SS SSS SSS SLT SS SSS CSS CS SSS SSeS SS SS SSC SCCSCSSCS SSS LS SSeS SL eS SS 199 Ce PES ee EET O ET OPE ree PE PEE LEER Ee ey tL TEL rt eee 
5 * * 200 FFF S PSL S SSS SL SS SPSS SES SSS LSS SL SS SS SS SSS SSS SSS SSeS SSC SCSSLSC SS SSS SPSS PSSST eS SS 4 
6 * KK PREREQUISITES # OK * 201 ** * * 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) * 
8 x NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER # 
9 x * 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR #2 
10 22 OICII  O  IRI aK OI K tok doko tok 20 4 ak ac ak 205 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS ** 
11 * * 206 ** PURPOSE THEY ARE: x 
12 * * MODIFICATIONS EK * 207 ** *K 
13 * * 208 ** STEP AND RULE ADDRESS TABLE OK 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND * x 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. OK 
16 2k II RO I IO  IGI III FII  I k kak k kok aie ak ak ak ak akc a 2k 211 ** ENTRIES ARE AS FOLLOWES ** 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA * x 
18 x CK PEA'S YNCORPORATED ACK * 213 ** B THE STEP NUMBER IN DECIMAL ** 
19 * x 214 *x* C AN EQUATE FOR THE STEP NUMBER * 
20 * NONE * 215 ** * 
21 * * 216 ** RULE INFORMATION TABLE * 
IRL EL SSS SESS SSL. SS SESS SSS SSS SSS SSS SST SSOSSSSSSSCS SC CSSS SSCS ESC CSC eS 2s 2 SS 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE *xK 
93 x * 218 *x* THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN * 
24 * KK SPECIAL INSTRUCTIONS CK * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS 4K 
25 * * 220 ** INDICATED WITH A X*OOOO* FOR THE RULE EQUATE. * * 
26 * NONE * 221 ** ** 
27 * * 222 ** SQUES * 
28 =O OOK OR Rok kok io ro II RRO II III III I dak kk kak dak ake aka ofc afi ak akc akc akc 223 ** A) RULE EQUATE X*0100! ** 
99 * * 224 ** B) ADDRESS OF THE YES LEG RULE * x 
30 * OK K E. C. HISTORY kK * 225 ** ** 
ee : 336 rae one A) RULE EQUATE x'0101' * 
32 * DATE 17AUG78 DATE O20CT78 DATE 10JAN79 DATE * 
33 * E.C. 755391 E.C. 375102 E.C. 375222 E:c. * a vat B) ADDRESS OF MESSAGE TO PRINT 
34 * * 
CLE tt Tet ete SST LPP SSS SSL SS TSS SSS SSS SS SS SSS SS SSS SSCL SS SSS SSCS eS LS SS CLS SS Se SS 230 ** $STOP a 
002500 37 I7A26 START x'2500° START ADDRESS OF ALL 'I* TYPE PROG 231 ** A) RULE EQUATE X*0102'* ** 
000100 38 dOUES EQU X¥*0100! EQU VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE # 
000101 39 OFIXT EQU X¥'O1018 EQUATED VALUE FOR MDI STATEMENT 233 ** Ke 
000102 40 @STOP EOU Xx'0102! EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO 2K 
000200 41 @GOTO EQU X¥'02008 EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE Xx'0200! 2K 
000201 42 @CALL EQU X"QO201! EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE eK 
000300 43 OINPT EQU X¥*0300! EQUATED VALUE FOR MDI STATEMENT 237 ** C}) NAME OF MAP TO GO TO * 
000400 Yu aOUXX EQU X¥'ouoor EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE a 
000500 45 aTUXX EQU X¥'05008 EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATCR FOR FXTERNAL OR INTERNAL REFERENCE xk 
000600 46 @NVLD EQU X¥*'0600! EQUATED VALUE FOR MDI STATEMENT 241 ** * 
000000 47 EQ EQU X¥*0000! EQUATE FOR EQUAL 242 ** SCALL 1X 
000004 48 NE EOU X*OO00u8 FOUATE FOR NOT FOQUAL 243 ** A) RULE EQUATE x*0201' ok 
000008 49 HI EOU Xx*'0008! EOUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE * 
00000C 50 NH EQU x'Ooo0c! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL 2 
000010 51 LO EQU X¥'0010! EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000014 52 NL EQU X'O00TK8 EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ** 
000010 53 LT EOU x'0010°8 EQUATE FOR LESS THAN 248 ** eK 
00000C 54 LE EQU X*'O00C! FOQUATE FOR LESS THAN OR EQUAL TO 249 *x SINPT * 
000008 55 GT EQU X*0008' EQUATE FOR GREATER THAN 250 ** A) RULE oe UATE x*0300! * x 
000014 56 GE EQU X'00148 EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPU YPE fEBCDIC Of OR HEX) *% 
000200 57 ON EQU X*0200° EQUATE FOR ON 252 ** C ADDRESS OF ULE aK 
000202 58 OF EQU x*0202° EQUATE FOR OFF 253 ** D) DESTINATION LOCATTOR OF INPUT DATA ok 
000204 59 EQU x*O2048 EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA 2 k 
000000 60 EBC EQU X¥'00008 EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWFR LIMIT OF GOOD DATA OK 
000001 61 HEX EQU Xx'0001°8 EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA ** 
000001 62 XTRNL EQU X¥'0001! EQUATE FOR EXTERNAL REFERENCE 257 ** ** 
000000 63 INTRNL EQU X¥'0000! EQUATE FOR INTERNAL REFERENCE 258 ** $QUXX ** 
000000 64 PARM EQU X'OOOO0! EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X*'O4OO! * x 
000001 65 DA EQU  xX*Q001! EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE ee 
000002 66 EQU X*0002' EQUATE FOR UNIT ADDRESS 201: 2% C) TU BRANCH TO ADDRESS SECONDAR * 
000000 67 DUMMY EQOU. x*0000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) ae 
001800 69 QU *-X'OQODOO? ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER I * 
000232 70 PTYPE EQU *-X"'22CEt ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO US * x 
00180C 71 STEPNUM EQU PID+X"O00C'! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * * 
00180E 72 OPWD1 EQU PID+X*OOOE! ADDRESS OF OPTION WORD ONE 266 ** * 
001810 73 OPWD2 EQU PID+X'00108 ADDRESS OF OPTION WORD TWO 267 ** $TUXX * 
001818 74 TUSTATUS EQU PID+xX'0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE X‘'0500! *x 
OO181A 75 TUWORK EQU PID+X"OO1A? ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE * 
00189A 76 TUPARM1 EOQU PID+X*OO9A' ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS * 
00189C 77 TUPARM2 EOQU PID+X'009C! ADDRESS OF PARM 2 POINTER 271 ¥** D) TYPE OF COMPARE TO MAKE ON RESULTS ** 
00189R 78 TUPARM3 EQU PID+X"OO9Et ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS ** 
0018A0 79 TUPARMG4 EQU PID+X"OOAO! ADDRESS OF PARM & POINTER 2713 ** F) MASK FIELD FOR COMPARE * 
0018A2 80 TUPARMS EQU PID+X'OOA2! ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES * 
0018A4 81 TUPARM6 EQU PID+X*OOA4? ADDRESS OF PARM 6 POINTER 215 ** H) PARAMETER TO PASS TO THE TU * 
0018A6 82 TUPARM7T EQU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * & 
0018A8 83 TUPARM8 EQU PID+X"'OOA8! ADDRESS OF PARM 8 POINTER 277 ** * x 
OO18AA 84 TUPARM9 FOU PID+X"OOAA® ADDRESS OF PARM 9 POINTER 278 ** SNVLD : * 
OO18AC 85 TUPARM10 EOU PID+X'QOOAC! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X'0600! * 
0018AE 86 TUPARM11 EQU PID+X'OOAE! ADDRESS OF PARM 11 POINTER 281 ** ** 
0018B0 87 TUPARM12 EQU PID+X'OOBO? ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE * 
001832 88 TUPARM13 EQU PID+X'OOB2? ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * 
0018B4 89 TUPARM14 EQU PID+X*'OOB4! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE ** 
0018B6 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * 
0018B8 91 TUPARM16 EQU PID+X'OOB8! ADDRESS OF PARM 16 POINTER 286 ** * 
OO18RA 92 TUMSGWTR EQU PID+X'OOBA® ADDRESS OF -> TO COMMON MSG WRITER 287 ** 3 NAME OF ENTRY POINT * 
0018BE 93 TUUA EQU PID+X*OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** ADDRESS OF ENTRY POINT RULE TABLE * 
0018C0 94 TUDA EQU PID+xX*OOCO! ADDRESS OF DEVICE ADDRESS IN EBC 289 ** * 
0018C2 95 TUBUFF EQU PID+xX*00C2' ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A xt0O000! * 
0018C4 96 TULAST EQU PID+X'OO0CU? ADDRESS OF LAST ADDRESSABLE WORD 291 ** * 
0018C6 97 TURESULN EOU PID+X'OOC6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE ** 
0018C8 98 TURESUL EOU PID+x!'QOC8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * 
0018FC 99 MAPNAME EQU PID+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * 
001948 100 TUINPT EQU PID+xX'01488 ADDRESS OF $INPT DATA 295 ** * k 
00196E 101 PARMARA EQU PID+X*O16E! ADDRESS OF $INPT INPUT AREA 296 ** A EQUATE FOR START OF MESSAGE BLOCK *% 
0019B8 102 @DCADD1 EQU PID+X'0O1B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE *% 
0019BA 103 @DCADD2 EOU PID+X'O1BA' MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * 
0019C4 104 SUPSTAT EQU PID+X'O1C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE Ok 
0019D0 105 DEVADD EQU PID+X'O1DO! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE 2 
OO19DA 106 DEVADD1 EQU PID+X'O1DA' ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE ** 
0019F4 107 DEVADD2 EQU PID+X'O1EU?® ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G) ETC. * 
0O019EE 108 DEVADD3 EQOU PID+X"QO1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** ** 
0019F8 109 DEVADD4 FOU PIDtX'O1F8® ADDRESS OF DEVICE ADDRESS TABLE 4& 304 PS St SSS LSS SSE SSS SES SES SES SSS SS SSS SSS SSS SCS SSS SS Se sce + sees ece SO Ss eee Se Li es SS 
OOTAD2 110 DEVADDS EOu PID+X'Q202°8 ADDRESS OF DEVICE ADDRESS TABLE 5 305 eK a KK KKK KK KK Kk kok kk ok ok koko kk okok kok kok kok tok kok gO iokokok ik qo OK ok koko RK koto ak kok 
OO1A0C 111 DEVADD6 EQU PID+X*020Ct ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 We DEVADD7 BOG FID+K* 0216" ADDRESS OF DEVICE ADDRESS TABLE 7 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
2137 * 1 BAL $RKEW, R6 READ SECTOR ID SKEWED 2252 * * 
2138 * 2 , 2253 * EQUATED NAMES FOR SUPPORTED SVC'S % 
2139 * 2 BAL $WKEW, R6 WRITE SECTOR ID SKEWED 2254 * * 
2140 * é 000 ecee GG OT Ge re Eee rag Cetra Vine an ne Sryea ee NET eo nee 
2141 * 3 BAL $WSEC, R6 WRIT Cc 000 OUT SVC 
ee ae ae oe 303033 ee ee ooE Eye 
A DIAG, R6 DIAGNOSTIC . 
gf Ss Bat rx0cs, $0008 3300 dunes e8u cpkNcE Cover vCeNDEN? OF CPU TYRE 
A XIOCS,R6 CYCLE STE Ss U 
3146 * : ? shea eee 000005 2261 PGMCK EQU 5 ALLOW RETURN ane PROGRAM CHECK SVC 
2147 * 6 BAL $SEEK,R6 SEEK 000006 2262 EXIT EQU 6 EXIT SVC 
ert < 7 ‘BAL atts 3303 peRe : 7 i RESET DEVICE SYC 
A $RECL, R6 RECALIBRATE 
ee z 8 BAL $ OO DOOR 2262 BRT ety 20 STRRT CYCLE STEAL SVC 
A RDID, R6 READ SECTOR ID 
2152 * 3 . 00000B 2267 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
39153 * 9 BAL $RD, R6 READ 00000C 2268 PREP EQU 12 PREPARE DEVICE SVC 
313 $10 ax snpv e008 2370 READY EU 1a READ WET BuNcHION BIE 3 Sn? s¥e° 
RDVY,R6 E 
7156 * : nee, wore Ty OOOO00F 2271 RSTAT EOU 15 READ STATUS SVC 
2157 * 11. BAL $WRT, R6 WRITE 000010 2272 WRITO EOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
2158 * 000011 2273 WRIT1 EOU 17 WRITE WITH FUNCTION BIT 3 ON SYC 
2159 * 12 BAL SRDIM, R6 READ MULTI SECTOR IDS 000012 2274 CTRL EQU 18 CONTROL SVC 
2160 *" 000013 2275 RICB EOQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
2161 3 a OIC IO IO OR OR Ri ia iio a dak iki kok i 000014 2276 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
0030E2 4020 32FA 3018 3ie3 SSEEK A LEE 3243 HE OSD FOU 24 REQUEST US’ OF DCP DISK SVC 
MV SKDCB, IODCB SET UP CONTROL BLOCK FO C CALL 
0030EF8 SO7F 2164 J XIo ’ 2 000017 2279 RELSD EQU 23 RELEASE | USE OF DCP DISK SVC 
OQOO30EA 4020 32FA 2FE8 ence SHRCL A ; S000T8 3384 ETOH EOU 33 epepre © TO HEX SVC (STRING 
MV CLDCB,IODCB SET UP BLOCK FOR SVC CALL 
0030F0O0 5S07B 2167 J XIo ” OOOO1A 2282 HTOE EOU 26 HEX TO EBCDIC SVC (Srati} 
003922 4020 32ra 3008 3188 $01 goaeie z30u fron BRU 38 Nei no" asers Svc (sriruc) 
D MVA RSDCB, IODCB SET UP BLOCK FOR SVC CAL 
0030F8 OBBB 2170 MVBI X'BB!,R3 SET BUFFER TO B'S : L 00001D 2285 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
OO30FA 4524 2F8E 2171 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS QOOOTE 2286 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 
OO30FE 4724 0004 2172 MVWI 4 gRT ' SETUP BUFFER LENGTH 00001F 2287 READI EQU 31 READ DATA SETS FOR MDI/OUTIL 
003102 2BAC 2173 FFN INIT READ SECTOR ID BUFFER 000020 2288 WRITI EQU 32 WRITE DATA SETS FOR OTIL 
003104 4020 3016 2F8E 2174 MVA £3, (BS) cae DATA ADDR 2290 733 RI IO IOI OR III III IG ICI IK I IK IK CK ik ok 
00310A SO6E 2175 J XIO 2291 * * 
00310C 4020 32FA 3088 3145 SRDIM VA 323% ;: popes USED BA RSS Re Cover aN ; 
003112 4724 0084 2178 Nee Sit ae ae eiepen Leween POR SVE NeREN 229 4 0 III IO IIR III ICI ORI IIR OR I OK 4K 44k 
003116 4524 30C2 2179 MVA ID06,R5 SET BUFFER ADDRESS OOO004E ' 2295 PLUS EQU ct PLUS CHAR 
OO31TA OBBB 2180 VBI X*BBI,R3 SET CLEAR CHARACTERS aectiets eae venue EON eas MINUS CHAR 
F R R CLEAR THE BUFFE 
00311E 5064 2182 J Bo6 | - B 000001 2299 ONE EQU 1 
003120 oBFE Hei Sao war xvepe, a3 380983 230) Mies Bou 3 
MVBI X'FF',R SETRD BUFFER TO ALL F'S 
003122 6D08 3066 2185 MVW RDDCB*14,R5 SET UP READ BUFFER ADRS 000004 2302 FOUR EQU 4 
003126 6F08 3064 2186 MVW RDDCB+12,R7 SET UP BUFFER LENGTH 000005 2303 FIVE EQU 5 
993138 2835 sora 3058 3488 gros aya RDb¢B ec Ser nb arOeR cun. 000004 5305 SEVEN EOU 7 
OD SET UP BLOCK FOR SVC CALL 
003132 505A 2189 J XI . 000008 2306 EIGHT Bou 8 
003134 4020 32FA 3048 3134 SRDV A OO OOOR 3356 TENS E6u 30 
Y MV VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC C 
003138 5056 5192 3 x10." OER EO eee, ORES 000008 $309 ELEVN EQU 11 11 
eo313¢ 429 sara 3036 F180 unr wva 380385 231) fhaey bu 13 13 
MV WRDCB, IODCB 
ABaaio> (eneS 3134 : HRD ,lOD SET UP CONTROL BLOCK FOR SVC CALL nOOoDbe 5312 FLNTN EOU 12 ae 
003144 4020 32FA 3078 2138 3 900020 5344 THRY > FOU 35 38 
RKEW MVA RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
00314A OBBB 2198 MVBI X'BB',R3 SET BUFFER TO B'S 000040 2315 SIXT4 EQU 64 64 
00314C 4524 2F8E 2199 MVA  SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 000080 2316 ONE28 EQU 128 128 
003150 4724 0004 2200 MVWI 4,R7 SETUP BUFFER LENGTH 000100 2317 TWO56 EQU 256 256 
003154 2BAC 2201 FFN R3 § 5) INIT READ SECTOR ID BUFFER 000400 2318 ONEK EQU 1024 1024 
003156 4020 3086 2F8E 2202 MVA scChID,RKDCB+14 DATA ADDR 000800 2319 TWOK EQU 2048 2048 
00315c 5045 2203 J 000C00 2320 THREK EQU 3072 3072 
00315EB 4020 32FA 3068 3200 SWKE A ae 3333 a EOU ce a eee 
W oMV WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL = gi 
003164 4020 3076 30A6 2206 MVA  WRSID,WKDCB+14 DATA ADDR FFFFFE 2324 M2 EQU  -2 -2 
00316A 503E 2207 J XIO FFFFFD 2325 M3 EQU ~3 -3 
00316C 4020 32FA 2FF8 ae a nerE Se aoe SL Sen OnE PE RAT ee me ee ere Ta ere er tan ene a aR eee * 
EC MVA WSDCB,IODCB SET UP CONTROL BLOCK FO vC CAL has 
003172 4020 3006 30A6 2210 MVA WRSID, WSDCBt14 DATA ADDR Se : 2329 * * 
003178 5037 2211 J XIO 2330 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
qeaea ian SS sane 2212 x 2331 : BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. : 
003186 5033 PA FD Soin SDIAG ae vio SET UP CONTROL BLOCK FOR SVC CALL 2333 KKK KR KK KK KK a KK He a ic oe he 2 i a 2 ee 2c fc ie 2c ae i ac ac i 2 fe fe 2c a ic oe a hc 2 fe ae afc akc ac akc 
003182 6EOD 2F8 5312 $HRTO SO0004 3338 Bea EeU 
EOD Cc WRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 
003186 OBFF 2217 MVBI 255, R3 CLEAR CYCLE STATUS BUPFER 000002 2336 BS2 EQU) 2 
003188 4524 2FA6 2218 MVA  CSBOF,RS * TO ALL ONES ¥* 000003 2337 BS3 =EQU- 3 
00318C OF16 2219 MVBI 22,R * 000004 2338 BS4 EQU 4 
s3180 G288 apae 3) Bee SEPA $30008 s3u0 bse RU 
DCBUF CLEAR DCB BUFFER TO ALL ONE 
003194 OF10 2222 MVBI ,R7- * ae? 000007 2341 BST EOU 7 
003196 2BAC 2223 FFN R3 4R5) * 000008 2342 BS8 EQU 8 
003198 4020 2F88 0708 2224 MvWr | «x'6708",SIOIN OVERLAY OLD CONDITION CODES 000009 2343 BSY EQU 9 
00319E CB25 2F8A 2225 MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE OOOOOA 2344 BS10 EQU 10 
0031A2 4CA3 2226 TBTR RG, IN CLEAR INTERRUPT RECEIVED CNTL BIT 00000B 2345 BS11 EQU 11 
0031A4 4CAI 2227 TBTR RU,E RESET ANY ERROR BEFORE 1/0 COMMAND 00000C 2346 BS12 EQU 12 
0031A6 4C62 2228 TBTS (R4,X SET EXPECTED INTR CONTRCL BIT 00000D 2347 BS13 EQU 13 
0031A8 4724 32F6 2229 MVA OBLK, R7 SET UP CONTROL BLK FOR SUPR OOQ00E 2348 BS14 EQU 14 
0031AC C020 32FD 2230 MVB  IOMOD+1,R0 GET IDCB FUNC/MODIFIER OOOO00F 2349 BS15 EQU 15 
0031B0 402D 32FC OOFO 2231 RBTWI X'OOFO', IOMOD REMOVE FUNCTION FROM *IOMOD! 2351 COPY TV7AXEQ 16MAR78 
0031B6 3022 2232 SRL 4, RO RIGHT JUSTIFY FUNCTION BITS IN RO 2352 PRINT OFF 
0031B8 F005 2233 CBI 5,R0 IDCB FUNCTION = 5? 2916 TIAXEQ 
OO31BA 1003 2234 JE SHRT1 YES - ISSUE "SVC WRIT1° 29 174K KK KK KKK KK AK A He ee HC He ee He I HK i HE He EK OK i ae i eK KK EKKDO TU LI 6K * 
0031BC 6010 2235 SVC WRITO ISSUE WRITE DPC '4x' OP 2918+ 
0031BE 6802 3242 2236 B XIO8-4 GO WAIT FOR THE INTERRUPT 2919+* SUB-ROUTINE 
0031Cc2 6011 2237 $WRT1 SVC WRIT1 ISSUE WRITE DPC 'SX' OP 2920+4+* 
0031C4 6802 3242 2238 : B XIO8-4 GO WAIT FOR THE INTERRUPT eee EXECUTE INPUT AND OUTPUT COMMANDS 
9031¢8 4020 32FA 3038 2240 SDGWR HVA WRDCB, IODCB SET UP CONTROL BLK FOR SVC CALL pe PURPOSE 
222 * PPLE Ory eee Ene 2925+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
0031D2 4020 32FA 3058 2243 $DGRD MVA RDDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 2926+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
0031D8 6F08 3064 2244 MVW RDDCB+12, R7 GET NO. OF BYTES TO CLEAR 2927+% 
0031DC 6DOB 3066 5545 qVW RDDCB+14,P5 ADDR OF READ BUFFER 2928+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
0031EO OBFF 2246 MVBI X¢*FFt,R3 CLEAR TO FtS 2929+* THE I/O COMMAND. 
0031E2 2BAC 22u7 FFN R3 4B5) 2930+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
0031E4 6802 31EE 2248 B X1ODG ISSUE START CS DIAG CHD 2931+% ISSUED BY THIS SUBROUTINE. 
2250 COPY COMEC 2932+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
2251 RRR EK KR a lo oi io tok acto kciok kick go tok otek tok kok a 2933+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
me * ‘ i: ~y \ \ ‘ . = = a 
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2934+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 00325E C328 2F88 3050+ MVB R3,SI0OIN * PUT IN LOG OUT AREA 
2935+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 003262 68D2 0000 3051+ B (RO) * PETURN TO USER ERROR HANDLER 
29 36+* MYSTERY INTERRUPT firth CONTROL BIT IS SET. 305 34 IO IO IORI IO OOOO OK OO ii to tok 400% 1 A DRT 6 ** 
2937+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 3054+* IL 
2938+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE isvé START * « 3055+* SUB~ROUTINE IL 
2939+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 3056+* IL 
2940+* STARTS TO DETERMINE A LOST INTERRUPT. 3057+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL' IL 
2941+ 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 3058+* IL 
2942+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 3059+* PURPOSE IL 
2943+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 3060+* IL 
2944+4+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 3061+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
2945+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 3062+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
2946+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 3063+* EXPECTED CODE. IL 
2947+ 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 3064+* IL 
2948+* ISSUED BY THIS SUBROUTINE. 3065+* CALLING SEQUENCE IL 
2949+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 3066+* IL 
2950+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 3067+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT TL 
2951+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 3068+* IL 
2952+* 3069+* RETURN CONTROL IL 
2953+* CALLING SEQUENCE 3070+* LL 
2954+* 3071+* SVC EXIT RETURN TO USER VIA SUPVR IL 
2955+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 3072+* IL 
2956+* 30 734 ROK RO III OR III IOI CK AIO RR OR ROK IK OKT 
2957+*® --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 3074+* IL 
2958+* --> BAL XIO1 MOD PARM PRELOADED IN *IOMOD? 3075+* CC O= CONTROLLER END ISB = ADD STATUS IL 
2959+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 3076+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 
2960+* --> BAL XIOCS-4,R6 AUTO CS STATUS An Taree RU OTHER XIO 3077+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
2961+* ° AND DOES NOT POST INTERRUPT STATUS) 3078+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 
2962+* 3079+* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 
2963+* RETURN CONTROL 3080+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 
2964+* 3081+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 
2965+* BXS R6, 2) RETURN TO USER NO ERROR 3082+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 
2966+* OR B j * RETURN AND RETRY ON ERROR 3083+* , IL 
2967 + RII IO OO; III IIR IO OI GR I kok a ii I a lok ak ak i aka kak ik akc ake ak ok 003266 706EF 30844INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
0031E8 CB25 32FC 2969+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 003268 336A 3085+ SRL 13,R3 POSITION INDICATORS IN R3 IL 
0031EC SOOE 2970+ J XIO1 CS I/0O'S ARE NOT RETRIED 00326A 4424 2F80 3086+ MVA OPptN1 RY SET UP BASE ADRS IL 
2971+* 00326E 4C28 3087+ TBT ae c§) IS CS IN PROGRESS IL 
0031EE 4020 32FC OO0OD 2972+XIODG MVWI xX*'OO0OD',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 003270 1006 3088+ JOFF NTES * NO IL 
0031F4 500A 2973+ J xXIo1 GO TO CS OPS 003272 4C6A 3089+ TBTS fae CE TURN ON CYCLE STEAL INTER ERROR IL 
2974+* 003274 6FOD 2F94 3090+ MVW 7,DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 
0031F6 4CAA 2975+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 003278 C328 2F95 3091+ MVB R3,DEV4+1 * AND THE COND CODE IL 
OO031F8 4C68 2976+ ~ TBTS R4,CS SET 'CYCLE STEAL STATUS! IN PROGRESS 00327C 500A 3092+ J INTR1 IL 
0031FA 4020 32FA 3028 2977+XIOCS MVA SDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 00327E 4cC24 3093+INTES TBT one XE) TEST EXPECTED ATTEN / ERROR IND IL 
003200 4020 32FC OOOF 2978+ MVWI X'000Ft, TOMOD SET CYCLE STEAL MODIFIER 003280 1002 3094+ JOFF nrety BCH IF NOT EXPECTED LL 
003206 4C28 2979+ TBT A CS) IS CS IN PROGRESS, ERROR CONDITION 003282 F304 3095+ CBI 4,R3 IS THIS AN ‘ATTENTION! INTR IL 
003208 1213 2980+ JON 102 * YES, BYPASS SAVING I/0 ADRS 003284 1006 3096+ JE ThTRI * YES, BCH TO END INTR SEQUENCE IL 
00320A 6EOD 2F8C 2981+XIO1 MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 003286 4C61 3097+INTET TBTS (Re ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
00320E 4324 2F96 2982+ MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 003288 5004 3098+ J NTR14 IL 
003212 6D08 32FA 2983+ MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 3099+* THE ERROR INTERRUPT USES THE SAME IL 
003216 OFTA 2984+ MVBI 26,R * THE NUMBER OF MOV E£sS 3100+* ENDING SEQUENCE AS THE NORMAL INTR IL 
003218 2D64 2985+ MVFN SRD) 483) MOVE 1 STATUS WORD AND ADJUST 31024 EK ROI tok ko KE TA PRT6IL 
00321A OBFF 2986+ MVBI 55 f CLEAR CYCLE STATUS BUFFER 3103+* IL 
00321C 4524 2FA6 2987+ MVA CSBUF,R5 * TO ALL ONES * 3104+* SOUBROUTINE IL 
003220 OFTA 2988+ MVBI 26,R7 * 3105+* IL 
003222 2BAC 2989+ FFN R3 1h?) * 3106+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL'* IL 
003224 4020 2F88 0708 2990+ MVWI x6 08',SIOIN OVERLAY OLD CONDITION CODES 3107+* IL 
00322A CB25 2F8A ee MVWZ $1IS8,R3 ZERO OUT OLD ISB VALUE Stace PURPOSE a 
+ + 
00322E 4CA1 2993+ TBIR R4, ER RESET ANY ERROR BEFORE I/O COMMAND 3110+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
003230 4CA3 29944+XTO2 TBTR R4, IN CLEAR INTERRUPT RECEIVED CNTL BIT 3111+* IL 
003232 4724 32F6 2995+ MVA OBLK 7 SET UP CONTROL BLOCK FOR SUPVR 3112+* CALLING SEQUENCE IL 
003236 4CA6 2996+ TBIR RY, $LE) RESET LEVEL ERROR INDICATOR 3113+* IL 
003238 4C62 2997+ TBTS XI) SET EXPECTED INTR CONTROL BIT 3114+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
00323A 600A 2998+ svc TART CALL SUPVR FOR I/O COMMAND 3115+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
2999+* 3116+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 
00323C 4CAT 3000+ TBTR R4, NI) IS AN INTPR EXPECTED 3117+* COMMON SECTION IS HANDLED HERE. IL 
00323E 6ACO 0002 3001+ BN R6, 2) * NO, RETURN TO USER 3118+* IL 
3002+* 3119+* RETURN CONTROL IL 
3003+%* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 3120+* IL 
3004+* 3121+* SVC EXIT RETURN TO USER VIA SUPVR IL 
003242 4524 0000 3005+ MVWI O,R5 SET UP WORK REG FOR ‘LOST INTR'! 3122+* IL 
003246 4CA3 3006+XI08 TBTR yee edh) HAS INTERRUPT BEEN RECEIVED 312 34 RK RK KH KK KO EOI KR kK tok tok ek kK kT 
003248 1239 3007+ JON IOCK * YES, CHECK IF ALL WAS SATISFACTORY 00328A 706E 3124+ INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
OO324A 6002 3008+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 00328C 336A 3125+ SRL 13,83 POSITION INDICATORS IN R3 IL 
3009+* SUPVR WILL RETURN HERE 00328E 4424 2F80 3126+ MVA OPEN1, R4 SET UP BASE ADRS IL 
00324C 6002 3010+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 003292 4C63 3127+INTR1 TBTS R4,1f SET INTERRUPT RECEIVED IL 
3011+* SUPVR WILL RETURN HERE 003294 4C28 3128+ TBT R4,CS TS 'CS IN PROGRESS! ON IL 
00324E 7DA1 0001 3012+ AWL 1,R5 ADVANCE TIME OUT COUNT 003296 1204 3129+ JON NTR2 * YES, RCH AROUND UPDATE IL 
003252 18F9 3013+ JINZ xfo8 BCH IF TIME OUT NOT REACHED 003298 C328 2F89 3130+ MVB R3,$101IN+1 SAVE INTERRUPTING CC CODE IL 
003254 4C61 3014+ TBTS PR4,ER) SET ON ERROR CONTROL BIT 00329C 6F0OD 2F8A 3131+ MVW R7,$1ISB SAVE INTR STATUS AND DEV ADRS IL 
003256 68D2 0000 3015+ B R6) * -R ‘NO INTERRUPT! 0032A0 3132+INTR2 EQU * IL 
30.17 4 AO tok io gogo oki oR OR a Co aio duiok tata tkiotok Q 3 FEB] 6% % 3133+* CPCL RS CURRENT LEVEL COPIED BY DCP IL 
3018+* 0032A0 3521 3134+ SLL 4,R5 POSITION INTR LEVEL AND POT IL 
3019+* SUBROUTINE 0032A2 0501 3135+ ABI 1,R5 * IN 'I* BIT IL 
3020+* 0032A4 CD24 2FC6 3136+ CW SINTL, TS THIS THE CORRECT INTR LEVEL IL 
3021+* I/O EXECUTE ERROR HANDLING ROUTINE 0032A8 1002 3137+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 
3022+* OO32AA 4C66 3138+ TBTS R4,$LE SET INTR LEVEL ERROR CONTROL BIT IL 
3023+* PURPOSE 0032AC 4C61 3139+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 
3024+* OO32AE 4CA2 3140+INTR3 TBIR RY, XI WAS INTERRUPT EXPECTED IL 
3025+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 0032B0 1204 3141+ JON ntRX * YES, EXIT OFF THIS INTR LEVEL IL 
3026+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 0032B2 4C60 3142+ TBTS le MI) * NO, SET MYSTERY INTR CONTROL BIT IL 
3027+* SUPERVISOR AND IT WAS NOT ACCEPTED. 0032B4 F304 3143+ CBI R3 ATTENTION INTERRUPT? IL 
3028+* 0032B6 1001 31444 JE INTRX YES IL 
3029+* CALLING SEQUENCE 0032B8 4C6C 3145+ TBETS Oe NG) ERROR, UNEXPECTED INTERRUPT IL 
3030+* OO032BA 6006 3Z1464+INTRX SVC Xf EXIT fHIS LEVEL VIA SUPVR TO PGM IL 
3031+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN 1/0 COMMAND 3148 +6 ORR RO IO ORI IGOR OR ak dak tok 0 3 FEB] 6% 
3032+* 3149+%* 
3033+* RETURN CONTROL 3150+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
3034+* 3151+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
eae B (R6) * RETURN TO USERS ERROR HANDLER yeas RECEIVED AND BRANCHES HERE TC CHECK FOR ANY ERROR CONDITIONS. 
+ + 
30 3742 OR I II IO ICO III IO I OR IIR I II ak ak ak ak a kak a 3154+4+* 
3038+* OO032BC 4CA4 3155+XIOCK TBTR R4, XE) WAS AN ERROR EXPECTED 
3039+* CC O= DEVICE NOT ATTACHED 0032BE 6ACO 0002 3156+ BN Real * YES, EXIT THIS ROUTINE 
3040+* FOR 1= DEVICE BUSY 0032C2 4CA8 3157+ TBTR R4,CS) WAS abto CS IN PROGRESS 
3041+* I/O 2= DEVICE BUSY AFTER RESET 0032C4 1006 3158+ JOFF Toev * NO, CONTINUE CHECKING 
3042+* 3= COMMAND REJECT 0032C6 4C2A 3159+ TPT ts. CE) Is c§ IN AN ERR CONDITION 
3043+* 4= INTERVENTION REQUIRED 0032C8 1002 3160+ JOFF TOCO * NO, BCH 
3044+* 5= INTERFACE DATA CHECK 0032CA 68D2 0000 3161+ B R6) * cs ERROR 
3045+* 6= CONTROLLER BUSY 0O032CE 4C69 3162+XIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 
3046+* 7= I/O COMMAND EXCEPTED 0032D0 5601 3163+ BXS R6,2 GO TO USER 
304 7+* 0032D2 4C21 3164+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 
00325A T706E 3048+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 0032D4 100D 3165+ JOFF TOCX * NO, EXIT THIS ROUTINE 
00325C 336A 3049+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 3166+* 
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0032D6 C520 2F89 3167+ MVB $IOIN+1,R5 GET LAST INTR CC CODE 00338C 4020 19BA 3508 3283+ MVA DC2PT, @DCADD2 
0032DA F502 3168+ CBI 2,R5 ° IS THIS CC=2 003392 402c 19c4 0080 3284+ OWI BrT0080,SUPSTAT 
0032DC 1003 3169+ JE XIOCQ YES 003398 4324 2F86 3285+ MVA $TULD,R SET UP BUFFER STORAGE 
0032DE F506 3170+ CBI 6,R5 IS THIS CC=6 00339C 6F13 18BA 3286+ BAL TUMSGATR*, R7 GO TO MESSAGE WRITER 
0032E0 68D1 0000 3171+ BNE (89) * NO, BCH TO ERROR HANDLER 3287+* 
0032E4 C520 2F8A 3172+XIOCQ MVB ISB,R5 Get faST ISB DATA BYTE AND IF CS 0033A0 3288+$CONX EQU * 
0032E8 6A00 31F6 3173+ BN XToc$-4 * AVAILABLE, GO AND GET IT 0033A0 C720 19D0 3289+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
0032EC 68D2 0000 3174+ B R6) * ERROR 0033A4 6013 3290+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
0032FO CB25 2F84 3175+XIOCX MVWZ PTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 0033A6 6812 2FC8 3291+ B TURTN* RETURN TO MDI SUPERVISOR 
0032F4 5601 3176+ BXS (R6, 2) RETURN TO USER VIA REG 6 3292+* 
3177+* 0033AA 0009 3293+BEGIN DC aga NUMBER OF LINES TO PRINT 
3178+* 1/0 PARAMETER LIST 0033AC 0008 3294+ Dc A (0008 LINE LENGTH = 8 CHAR 
3179+* OO33AE 5C5C40C1C2D6D9E3 3295+ DC C'** ABORT! 
0032F6 19D0 3180+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 0033B6 0028 3296+ Dc A (0040) LINE LENGTH = 4O CHAR 
0032F8 325A 3181+ Dc A (XIOER) ERROR ROUTINE ADRS 0033B8 E3EUCSICU4LOCID6BCID 3297+ DC C*TUID IOIN ISB INST SECT ID DATA CSCC 
0032FA 0000 3182+IODCR DC A (*-* DCB ADRS OR LEVEL & INTR 0033E0 0028 3298+ DC A (0040) LINE LENGTH = 40 CHAR 
0032FC 0000 3183+IOMOD DC A (*~* MODIFIER 0033E2 4O4OK4OK0K0OK0K0404 32994+LINEI pc cr ‘ 
0032FE 0000 3184+ pc A (*~* ADRS OF LAST SVC CALL OO340A 0028 3300+ DC A (0040) LINE LENGTH = 40 CHAR 
003300 0000 3185+IORSP DC A (k= SECOND WORD OF LAST IDCB 00340C C3D5E3D340C4C3C2F 3301+ DC C'CNTL DCB1 DCB2 DCB3 DCB4& CHAD BYCT ADRS ° 
3186+* 003434 0028 3302+ DC A (0040) LINE LENGTH = 4O CHAR 
3187+%* INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 003436 4O404040404040404 3303+LINE2 DC cf : 
3188+* 00345E 0028 3304+ DC A (0040) LINE LENGTH = 4O CHAR 
003302 19D0 3189+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 003460 C3E260FO4O0C3E260F 3305+ DC c'csS-0 CS-1 CS-2 CS-3 CS-4 CS=-5 CS-6 CS-7 ! 
003304 328A 3190+ DC A (INTOK INTERRUPT OK RETURN ADRS 003488 0028 3306+ DC A (0040) LINE LENGTH = 40 CHAR 
003306 3266 3191+ DC A(INTER INTERRUPT ERROR ADRS O0O348A Y4OXO4OKO4O4040404 33074+LINES DC ce ‘ 
003308 0003 3192+INTCC DC ' INTERRUPT CODE EXPECTED 0O34B2 0028 3308+ DC A (0040) LINE LENGTH = 40 CHAR 
319 U + RO OR OC RO a OK GG i mK ac tok gok kckakdok dottok& 11 MAY 7 6% * OO34B4 C3E260F840C3E260F 3309+ DC C'*CS-8 CS-9 CS-A CS-B CS=-C e 
3195+* 0034DC 0028 3310+ DC A(0040) LINE LENGTH = 4O CHAR 
3136%% SUBROUTINE OO34DE Y4OseO4O404 04040404 Pee aa DC ct ® 
3 +* + 
3198+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 003506 0000 3313+BUFPT DC A ose 
3199+* 003508 33AA 3314+DC2PT Cc A (BEGIN) 
3200+* PURPOSE 00350A 0101 3315+FIXTU DC x*O1018 
3201+* 00350C 0101 3316+FAKETU pc x*01018 
3202+ TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND OOFTFO 3317+PIDMSG10 EQU X'FIFO* 
3203+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000080 3318+BITO080 EQU X'0080° 
3204+* TO INTERRUPT. 3319+* 
3305+% 3320+* DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
3206+* CALLING SEQUENCE 3321+* 
3207+ 00350E 003A 3322+HEBLK DC A(58 NUMBER OF BYTES TO CONVERT 
3208+ THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 003510 2F86 3323+ DC A ($T zD) FROM ADRS 
3209+ 003512 181A 3324+ DC A (TUWORK) AND THE TO ADRS 
3210+* --> BAL $SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 3325 COPY 17A10 23JAN78 
3211+* --> BAL SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 3326 T7A10 TUIT 
3212+* 3327 + RE ORI IO III II OO tot tk tok 40K 0 6 F EB 7 6* * 
3213+* RETURN CONTROL 3328+* 
32144+* 3329+* TEST UNIT 
3215+* BXS R6,2) RETURN TO USER VIA REG 6 IF OKAY 3330+* 
3216+* OR B R6f * IF THE DEVICE COULD NOT BE CONNECTED eee es ERROR HALT CODE/DIAG SENSE BYTE CHECK 
+ 
3218 + #2 EI IC ICO I I IOK JOR IOI ORK kok kk i foi kk ike i kai take akc ok ake ke ok akc ac 3333+* PURPOSE 
00330A OFO6 3219+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 3334+* 
00330C 0OB00 3220+ MVBI 0O,R3 * AND THE DATA TO USE 3335+4* TO MOVE THE ERROR HALT CODE, STATUS BYTE, AND DIAG BYTES 1,2 3 
00330E 4524 2F8E 3221+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 3336+* TO THE TU RESULTS BUFFER (TURESUL) - 
003312 2BAC 3222+ FFN R3 (B5) * 3337+% : 
003314 CB25 2F84 3223+ MVWZ OP£N3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 3338+* MDI=$TUXX,T7A10,01,0708,EQ 
003318 4724 3302 322u+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 3339+* ° 
00331c 6014 3225+ SVC CICB * CONNECT IT TO THIS DEVICE 3340+* TURESUL BIT(S) O-7 ........ ERROR HALT CODE 
00331E 6ADO 0000 3226+ BN (R6) * ERROR RETURN TO USER 3341+* - 8-15 weeeeee- STATUS ASERP Ey BYTE 
003322 8828 2FC6 32FA 3228+$CONP MVW SINTL, IODCB PUT IN LEVEL & INTR PARAMETER 3343+* ° 24-31 weeeeee-e SINGLE SHOT BYTE 2 (6-HURSLEY 
003328 4724 32F6 3229+ MVA IOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 3344+* - 32-39 .~....... SINGLE SHOT BYTE 3 (7-HURSLEY 
00332C 4020 2F88 0708 3230+ MVWI x'0708',SIOIN INITIALIZE CONDITION CODE STORAGE 3345+* 7 UB=-55 wecceeee NOT USED 
003332 CB25 2F8A 3231+ MVWZ S$SISB,R * AND CLEAR OLD ISB VALUE 3346+* 2 56-63 .....-.. MULTISAMPLE BYTE 1 (5-HURSLEY 
003336 6E0D 2F8C 3232+ MVW R6, LSTIO SET UP ADDRESS THAT STARTED LAST I/0 3347+* . 64-71 weeee0ee- MULTISAMPLE BYTE 2 (6-HURSLEY 
00333A 600C 3233+ SVC PREP * AND CALL ON SUPVR 3348+* ‘ 72-79 .2eeeee- MULTISAMPLE BYTE 3 (7-HURSLEY 
00333c 5601 3234+ Bxs (R6,2) RETURN TO USER 3349+ : 80-87 ........ WRAP BYTE 
3 23 6 IE ICI OO I OR FOO i Koka ii io 0K 06 APR 6** 3350+* 
3237+* 3351+* CALLING SEQUENCE 
3238+* SUBROUTINE 3352+4+* 
33394% 3353+ MVW TUWORK, TURESUL MOVE ERROR HALT CODE §& STATUS BYTES 
3240+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 3354+ MVD TUWORK+6,TURESUL#2 SINGLE SHOT BYTES 1, 2, AND 3 
3241+ 3355+ MVD TUWORK+10, TURESUL+46 MULTISAMPLE BYTES 1, 2, AND 3 
3242+* PURPOSE 3356+* AND WRAP BYTE 
3243+ 3357+* RETURN CONTROL 
3244+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 3358+* 
3245+ SET THE *NO GOOD' CONTROL BIT, THEN LOG THE DATA THAT HAS 3359+* B TURTN* RETURN TO MDI SUPERVISOR 
3246+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 3360+* 
324 7+* 336 14 8 KK KK OOK imo a io ok oR lok or RR IOR kot ge dak akake toro ate ae afeaie eat ak 
3248+* CALLING SEQUENCE 003514 6FOD 2FC8 3362+T7A10 MVH R7,TURTN SAVE RETURN ADDRESS 
3249+* 003518 4020 2F86 7A10 3363+ MVWI X'7A10',STUID SAVE TO ID FOR DISPLAY 
3250+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 00351E 4424 2F80 3364+ MVA OPTN1, R4 SET UP POINTER ADRS IN R4& 
3251+* 003522 6E03 330A 3365+ BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
3252+* --> B SERRS SET 'NG* BIT AND CONVERT DATA TO LOG 003526 333E 3366+ DC A (SERR$) ERROR ADRS FOR INVALID PREP 
3253+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 3367+* 
3254+* 003528 9028 181cC 18D2 3368 MVD TUWORK+2,TURESUL+10 MOVE ERROR WORDS 4,5 
3235+* RETURN CONTROL 00352E 8028 1827 18CD 3363 HVB TUWORK+13,TURESUL#5 MOVE WRAP CHECK RESULTS 
+ 
3257+* B TURTN* RETURN TO MDI 003534 6802 33A0 3371+ B SCONX RETURN TO MDI CONTROLLER 
3258+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED a ea a a 
3259+* END 
CRANE tet St SPST TS STP TS SS STS SPT SST TS STS SST SSS SSS SSS SS SS SSCS SS SCS SS SSS SS SS SCS’ SS 
00333E 4020 1818 3261+$ERRS MVWI X' 8000! , TUSTATUS SET ON "NO GOOD! STATUS BIT 
003344 4724 350k 3262+ MVA HEBLK,R/ GET ADRS OF CONTROL BLOCK 
003348 601A 3263+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
00334A 4020 1888 3264+ MVWI X'4GO40O', TUWORK+116 
003350 4020 1890 3265+ MVWI X"4O040!, TUWORK+118 
003356 4020 1892 3266+ MVWI X*4O40', TUWORK+120 
00335c ODO4 3267+$PRNT MVBI 4,R5 
00335E 4324 181A 3268+ MVA TUWORK, R3 SET UP BUFFER STORAGE 
003362 6B0D 3506 3269+ MVW  R3,BUFPT 
003366 4124 3382 3270+ MVA  LIftE1,R1 
00336A OFO4Y 3271+ MVBI 4,R7 
00336C OEO8 3272+ MVBI 8,R6 
00336E 2B24 32734+MVBUF MVFN (83), (R1) 
003370 OFOY 3274+ MVBI ck 
003372 OA4O 3275+ MVBI x'40O*,R2 
003374 C258 3276+ MVB =-R2 qpips 
003376 BEFB 3277+ JCT  MVBUF,R6 
003378 OEF08 3278+ MVBI 8,R6 
00337A 7921 002C 3279+ AWI 44 R1 
00337E BDF7 3280+ ICT MVBUF,RS 
003380 4020 1802 F1FO 3281+ MVWI PIDMSG10,PID+2 
003386 4020 19B8 350C 3282+ MVA  FAKETU,@DCADD1 
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I7A26 --- FRU ISOLATION MAP P/N=8327674 EC=375222 PAGE 09 I7A26 --- FRU ISOLATION MAP P/N=8327674 EC=375222 PAGE OQ9A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1907+* 00304C 0000 2022 Dc A (*-* HEAD / CYLINDER#'S 
OO2FA6 1908+CSBUF EQU * CYCLE STEAL DATA BUFFER OO304E 0000 2023 DC A (*-* SCAN / REPEAT COUNT 
OO2FA6 0000 19094+CSTL1 DC A (*-* CS STATUS WD 0, RESIDUAL ADDRESS 003050 30B2 2024 DC A (RSBA) RSB_ADDRESS 
OO02FA8 0000 19104+CSTL2 DC A (*-%* CS STATUS WD 1, RESIDUAL COUNT 003052 0000 2025 DC A (*- * CHAIN ADDRESS 
OO2FAA 0000 1911+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 003054 0000 2026 DC A (*—-* BYTE COUNT 
OO2FAC 0000 1912+CSTL4 DC A (*-* CS STATUS WD 3, RETRY CNT WD 2 003056 0000 2027 DC FYO* NOT USED 
OO2FAE 0000 1913+CSTL5 DC A (*-* CS STATUS WD 4, ERROR STATUS WD 1 2028 * 
002FBO 0000 19144+CSTL6 DC B(*-* CS STATUS WD 5, ERROR STATUS WD 2 2029 ***xk* READ DCB eK a aC 
OO2FB2 0000 1915+CSTL7 DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 2030 * 
002FB4 0000 1916+CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL 003058 2018 2031 RDDCB DC X*2018° READ DCB CONTROL WORD 
002FB6 0000 1917+CSTLI DC A (*-* CS STATUS WD 8, CURRENT HD/CYL 00305A 0000 2032 DC A (¥-* FLAG / RECORD# 
002FB8 0000 1918+CST10 DC A (*-% CS STATUS WD 9, FLAG/SECTOR 00305C 0000 2033 DC A (*-* HEAD / CYLINDER#'S 
OO2FBA 0000 1919+CST11 DC A (*-* CS STATUS WD 10, HEAD/CYLINDER 00305E 0000 2034 DC A (*—* SCAN / REPEAT COUNT 
Boer nap eae, Mee cS BEATUS gp 14) DEAG BYTES 1, 524 33063 3609 3332 Be LSE ATW REDRESS 
+ a CS STATUS WD AND 3 + WRAP BYTE ss 
1922+ ‘ 003064 0100 2037 DC x'otoor BYTE COUNT 
002FCO 0000 1923+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 003066 0000 2038 DC A (*-*) READ DATA ADDRESS 
002FC2 00000000 1924+$DATA DC 2A (*-* OPTIONAL DATA 2039 * 
OO2FC6 0021 1925+$INTL DC X*O021! INTERRUPT LEVEL REQUESTED 2040 **** WRITE SECTOR ID SKEWED * KK 
002FC8 0000 1926+TURTN DC A (*-*) TEST UNIT RETURN ADRS TO MDI 2041 * 
OO2FCA 00 1927+$DVID DC X*OO! DEVICE ID 003068 002F 2042 WKDCB DC X'OO2F! CONTROL WORD 
002FCC 19D0 1928+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 00306A 0000 2043 DC A +3} FLAG / PHYSICAL SECTOR # 
O02FCE 0000 1929+ DC A (*-*) IBIS CYLINDER ADDRESS 00306C 0000 2044 DC A * HEAD /£ CYLINDER#'S 
1930+* 00306E 0000 2045 DC Frot NOT USED 
1931+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 003070 30B2 2046 DC A (RSBA) RSB_ADDRESS 
1932+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 003072 0000 2047 DC A (*-* CHAIN ADDRESS 
1933+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 003074 0004 2048 DC X*OOO4! BYTE COUNT 
19 344+ 003076 30A6 2049 DC A (WRSID) ADDR OF SECTOR ID DATA 
0O0O2FDO 4020 2F86 7A02 1935+T7A02 MVWI X'7A02', $TUID SET UP TEST UNIT ID 2050 * 
002FD6 5700 1936+ BXs {B7 RETURN TO MDI SUPVR 2051 **** READ SECTOR ID SKEWED ACK 
1938 COPY 7JAOODCB 2052 * 
1939 ** (T7AOODCB) 003078 201D 2053 RKDCB DC X'*201D° CONTROL WORD 
1940 * 00307A 0000 2054 DC A (*-* FLAG / PHYSICAL SECTOR# 
1941 ea agi cicicick ici ia ic dak ai ioc aia ia lok icickoiok iota 72 87 3 a I tok 00307C 0000 2055 DC A (*-* HEAD / CYLINDER#'S 
1942 * OO307E 0000 2056 DC Frot NOT USED 
1943 x DCB TABLES AND DC'S 003080 30B2 2057 DC A (RSBA) RSB ADDRESS 
1944 * 003082 0000 2058 DC A (*—-* CHAIN ADDRESS 
19.45 36 OI I OR I OCI aI Gg i or gq ok ik ok eat akoakak a ak ae ake ak 3k 003084 0004 2059 DC X*OQOOO4! BYTE COUNT 
1946 * 003086 2F8E 2060 DC A (SCTID) SECTOR ID DATA ADDRESS 
1947 ****kx DIAGNOSTIC DCB 2K KK ok 2061 * 
Staak. SG 1948 * 2062 eta READ MULTIPLE SECTOR IDS OK 4K 
FD DGDCB DC x*2008' DIAGNOSTIC DCB 
OO2FDA 0000 1950 DC A (*—% FLAG / PHYSICAL SECTOR# 003088 201C 2064 RMDCB DC X*201C! CONTROL WORD 
O02FDC 0000 1951 pc A x3} HEAD / CYLINDER#'S 00308A 0000 2065 DC A oe FLAG / PHYSICAL SECTOR# 
O0O2FDE 0000 1952 DC x¥too00! NOT USED 00308C 0000 2066 DC A (*-* HEAD / CYLINDER#'S 
O0O2FEO 3082 1953 DC A (RSBA) RSB ADDRESS 00308E 0000 2067 DC For NOT USED 
OO2FE2 0000 1954 pc A (*-* CHAINING ADDRESS 003090 30B2 2068 DC a(eosy” RSB ADDRESS 
OO2FES 0100 1955 DC x¥*o1008 BYTE COUNT 003092 0000 2069 DC A (*-* CHAIN ADDRESS 
OO2FE6 0000 1956 DC A (*-*) DATA ADDRESS 003094 0084 2070 DC X*OO84? BYTE COUNT 
1957 * 003096 30C2 2071 DC A (ID00) DATA AREA ADDRESS 
1958 **k*** RECALIBRATE DCB *** ***%x 2072 * 
1959 x 2073 * CONSTANTS AND DEFINED STORAGE LOCATIONS 
OO2FE8 0001 1960 CLDCB DC Xx'O0018 RECALIBRATE DCB 003098 0000 2074 ZEROO DC X'O0008 CONSTANT ZERO 
0OO2FEA 00000000000000000 1961 DC TA (*-*) 00309A 0001 2075 ONE1 DC X'OOOT! CONSTANT ONE 
1962 * 00309c 0000 2076 RAY DC oy Gd | WRITE PARAMETER POINTER 
1963 ***** WRITE SECTOR ID *** ***%K OO309E EB6D 2077 WDATA DC X"EB6D* WRITE DATA 
Spee: Os ee ee 003082 6000 5079 LGSEC DE kN ODODE 1 
FF D WSDCB DC X*OO2D* WRITE SECTOR ID CNTL WORD OGICAL SECTOR # 
OO2FFA 0000 1966 pc A (*-* FLAG / PHYSICAL SECTOR# 0OO030A4 0000 2080 PHYSC DC xX'O000! CONVERTED PHYSICAL SEC # 
OO2FFC 0000 1967 DC A (*-* HEAD / CYLINDER#'*S 0030A6 0000 2081 WRSID DC x*oooo8 FLAG,SECTOR (WRT SECTOR ID DATA) 
OO2FFE 0000 1968 Dc x*gooor NOT USED 0030A8 0000 2082 pc X'O000! HEAD,CYLINDER 
003000 30B2 1969 DC A (RSBA) RSB ADDRESS OO30AA FF34 2083 WSIDT DC X"FF34¢ WRITE SECTOR ID TEST DATA 
003002 0000 1970 DC A (*—% CHAIN ADDRESS OO30AC 5678 2084 DC X'5678! * 
003004 0004 1971 DC X"oook4s BYTE COUNT OO30AE 0000 2085 SCTST DC x*o000! READ SECTOR ID TEST DATA BUFFER 
003006 30A6 1972 DC A (WRSID) ADDR OF SECTOR ID DATA 0030B0 0000 2086 DC X*00008 
1973 * 0030B2 00000000000000000 2087 RSBA DC On (¥-*) RESIDUAL STATUS BLOCK 
1974 ***** READ SECTOR ID DCB *****xx OO30BE 0000 2088 CTRO2 DC x'0000! COUNTER 
1975 * 0030C0 0000 2089 CTRO3 DC Xx'OOO08 COUNTER 
003008 201C 1976 RSDCB DC X*201C* READ SECTOR ID CNTL WORD 0030C2 0000 2090 ID00 pc X*0000! ID ADDRESS TO BE SET BY USER 
00300A 0000 1977 pc A (*-* FLAG / PHYSICAL SECTOR# 0030C4 1010 2091 PDATA DC x*1010° WRITE DIAG WORD 1 DATA PATTERNS 
00300C Q000 1978 DC X'O0008 HEAD / CYLINDER#'S 0030C6 5555 2092 DC X'5555° * 
00300E 0000 1979 DC x*o0008 NOT USED 0O030C8 AAAA 2093 DC X*AAAAS * 
003010 30B2 1980 DC pieeot! RSB ADDRESS OO30CA FFFF 2094 DC X{ FEF" * 
003012 0000 1981 DC A (*-* CHAIN ADDRESS 2095 * 
0030T4 0004 1982 DC xtoookur BYTE COUNT FOR READ SECTOR ID 2096 Me A Xe He Ae HR eR ee ee ee i a a A A CK 0G 77 EE I OK OR KIO Rk 
003016 2F8E 1983 DC A (SCTID) SECTOR ID DATA ADDRESS 2097 * 
1984 * 2098 * SUBROUTINE 
1985 ***#k* SEEK DCB  *%% 4k kx 2099 * 
1986 * 2100 * PURPOSE 
003018 0000 1987 SKDCB DC x*0000!8 SEEK DCB CONTROL WORD 2101 * 
00301A 0000 1988 DC X¥*00008 NOT USED 2102 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
00301C 0000 1989 DC A (*-* HEAD / CYLINDER#'S 2103 * 
00301E 0000 1990 DC x*O0008 NOT USED 2104 * CALLING SEQUENCE 
003020 30B2 1991 DC A (RSBA) RSB ADDRESS 2105 * 
003022 0000 1992 DC A rea CHAIN ADDRESS 2106 * BAL CMPRW,R6 (NORMAL) 
003024 0000 1993 DC x*O0008 NOT USED 2107 * 
003026 0000 1338 : DC x*o000°8 NOT USED a505 : RETURN 
1936 attee CYCLE STEAL STATUS DCB *****#%xx aad : BXS (R6,2) - NORMAL 
003028 2000 1998 CSDCB DC ¥'2000! CONTROL WORD 2112 * 
OO3Z02A 0000 1999 pc For NOT USED 2113 EK HK 2 i oie ake ae aK ak ok 3K 2 i Ko hk ok kkk ok kk kk ak kok kok ik ak ik ak ak kc tak tek goa ok dak akcak fe atook age ak ake akc akc ak 
00302Cc 0000 2000 DC F'or NOT USED 2114 * 
00302F 0000 3001 DC Ftor NOT USED 0030CC 4724 0004 2115 CMPRW MVWI 4&,R7 COMPARE BYTE COUNT 
003030 0000 2002 DC Ftor NOT USED 0030D0 4324 2F8E 2116 MVA SETID, R3 ADDR OF RD SEC ID DATA 
003032 0000 3003 DC Fto! NOT USED 0030D4 4524 30A6 2117 MVA WRSID,R5 ADDR OF WR SEC ID DATA 
003034 OO1A 2004 DC X*OO1A* 13 WORDS OF STATUS 0030D8 2BA6 2118 CFNEN (R3), (R5) COMPARE ID DATA 
003036 2FA6 2005 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 0O030DA 68C0 0002 2119 BE R6, 2) BCH IF WRITE ID DATA OK 
5006 * 0030DE 68D2 0000 2120 B {* COMPARE ERR 
2007 ***** WRITE DCB te ae ee ac hc ok aK ok 2122 %% % KK ek KK KR KOK KK kkk kK ko kk kok kok ok ok kk kkk kak doko ik kok kk kk teak ok tok gk kak ok ok 
2008 * 2123 * 
003038 0028 2009 WRDCB DC xX*0028! WRITE DATA DCB CNTL WORD 2124 * EXECUTE INPUT & OUTPUT COMMANDS 
00303A 0000 20 t0 Dc A (*-* FLAG / RECORD# 2125 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
00303C 0000 2011 Dc A (*-* HEAD / CYLIDNER#!S 2126 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
00303E 0000 2012 DC A (*-* SCAN / REPEAT COUNT 2127 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
003040 30B2 2013 DE A (RSBA) RSB ADDRESS 2128 * SUPVR CALL. 
003042 0000 2014 DC A (*-* CHAIN ADDRESS 2129 * Z 
003044 0100 2015 DC x*0100! BYTE COUNT 2130 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
003046 0000 2016 DC A (*-*) WRITE DATA ADDRESS 2131 % . 
2017 * 2132 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
2018 pial VERIFY DCB aK KC KICK Kok ee : 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
003048 0019 2020 VRDCB DC x'0019! CONTROL WORD 2135 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
00304A 0000 2021 DC A (*-*) FLAG / RECORD# 2136 * 
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2137 * 1 BAL $RKEW, R6 READ SECTOR ID SKEWED 2252 * * 
2138 * 5 2253 * EQUATED NAMES FOR SUPPORTED SVC'tS * 
2139 * 2 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 2254 * * 
2140 * _ 2255 HK eK KK KK Ke KK eK a a KK KK KK KK KK KK KK KK KEKE KKK KEKE KEKE KEKEK EEK KK & 
2141 * 3 BAL $WSEC,R6 WRITE SECTOR ID 000000 2256 OUT EQU 0 OUT SVC 
7142 * . 000001 2257 OUTIN EOU 1 OUTIN SVC 
2143 * 4 BAL  §$DIAG,R6 DIAGNOSTIC 000002 2258 IDLE EQU 2 IDLE SVC 
7144 * 2 000003 2259 IDLES EOU 3 IDLE SVC - INDEPENDENT OF CPU TYPE 
2145 * 5 BAL XIOCS, R6 CYCLE STEAL STATUS 000004 2260 CHNGE EQU 4 CHANGE LEVEL SVC 
3146 * : 000005 2261 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
2147 * 6 BAL $SEEK,R6 SEEK 000006 2262 EXIT EQU 6 EXIT SVC 
sing #7 OB $ 00008 530i RESET FOU 8 RESET DEVICE SVC 
AL RECL, R6 RECALIBRATE 
2150 * . : 000009 2265 RID EOU 9 READ ID SVC 
2151 * 8 BAL $S$RDID,R6 READ SECTOR ID OOOOOA 2266 START EQU 10 START CYCLE STEAL SVC 
3152 * 2 00000B 2267 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
3153 * 9 BAL $RD, R6 READ 00000C 2268 PREP EQU 12 PREPARE DEVICE SVC 
3154 * . 00000D 2269 READO EOU 13 READ WITH FUNCTION BIT 3 OFF SVC 
2155 *:10 BAL SRDVY,R6 READ VERIFY OOO00E 2270 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
3156 * i OOOOO0F 2271 RSTAT EOU 15 READ STATUS SVC 
2157 * 11. BAL $WRT, RE WRITE 000010 2272 WRITO EOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
2158 * 000011 2273 WRIT1 EOU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
2159 * 12 BAL $RDIM,R6 READ MULTI SECTOR IDS 000012 2274 CTRL EQU 18 CONTROL SVC 
2160 * 000013 2275 RICB EOQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
2161 RK ROK IO Fa IOI II OO KR IO IO OR I RR i IK ak iak i ake ak kak ate ok a 000014 2276 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
0030E2 4020 32FA 3018 S4e4 SSeRK MVA KD SET 320% REOSD FOU 34 REQUEST USE OF DCP DISK SVC 
SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0OO030E8 SO7F 2164 J XIo 000017 2279 RELSD EOQU 23 RELEASE USE OF DCP DISK SVC 
OO30EA 4020 32FA 2FE8 a iee SRE L §09019 3384 BrOH ; i 30 eeore o TO HEX SVC TRING 
CL MVA CLDCB,IODCB SET UP BLOCK FOR SVC CALL 
0030F0 507B 5167 J XIo ” OOOOTA 2282 HTOE EOQU 26 HEX TO EBCDIC SVC {Steric} 
0030F2 4020 32FA 3008 51e8 § | D0001e 5388 ATOR eeu 38 HEX TO ASCTY SVC (STRING) 
RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL 
0030F8 OBBB 2170 MVBI X'BB',R3 SET BUFFER TO B'S 00001D 2285 ETOA EQU 29 EBCDIC TO ASCII S STR 
OO30FA 4524 2F8E _ 2171 MVA  °SCTID;R5 SETUP READ SECTOR ID BUFFER ADRS QOO0TE 2286 ATOE EQU 30 ASCII TO EBCDIC SVC (STRIN 
OO30FE 4724 0004 2172 MVWI 4 gl ‘ SETUP BUFFER LENGTH OOO001F 2287 READI EQU 31 READ DATA SETS FOR M T/OTLL 
003102 2BAC 2173 FFN INIT READ SECTOR ID BUFFER 000020 2288 WRITI EQU 32 WRITE DATA SETS FOR OTIL 
003104 4020 3016 2F8E 2174 MVA RS, B SDCB+14 DATA ADDR 2290 *e eK KKK PLERAEELOL AT SA tee Te eee ene ner ee eee ee eae eee erores 
00310A SO6E 2175 J XIO 2291 * 
2176 * | 2292 * EQUATES USED BY TUtS AS CONSTANTS * 
00310C 4020 32FA 3088 2177 $RDIM MVA RMDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2293 * * 
003112 4724 0084 2178 MVWI 132.-R79 SET BUFFER LENGTH 229 4 2 RI III II IGRI III I III III II IIOR AO OK CK 
003116 4524 30C2 2179 MVA tD06,R5 SET BUFFER ADDRESS OOO004E ' 2295 PLUS EQU C'+! PLUS CHAR 
ERE: OBBB 2180 VBI X*BBI ,R3 SET CLEAR CHARACTERS eeo ae eae pies ay ao MINUS CHAR 
R R CLEAR THE BUFFER 
00311E 5064 2182 J Bie 000001 2299 ONE EQU 1 
003120 OBFF 318i SRD MVB 3 900003 3399 THREE’ FOU Z 
I X'FFt,R SETRD BUFFER TO ALL FS 
003122 6D08 3066 2185 MVW  RDDCB+14,R5 SET UP READ BUFFER ADRS 000004 2302 FOUR EQU 4 
003126 6F08 3064 2186 MVW RDDCB+12,R7 SET UP BUFFER LENGTH 000005 2303 FIVE EQU 5 
$3132 E035 soem s0se 3188 savs Bit fBpdBLonc SEF btn R FOE" $3308 3398 Siven Bu § 
ODCB SET UP BLOCK FOR SVC CALL 
003132 505A 2189 J XI ' - 000008 2306 EIGHT EU 8 
003134 4020 32FA 3088 3194 $RDVY A SOOODA 5309 TEN EOU 10 
VA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
00313A 5056 2192 J xIo ” 00000B 2309 ELEVN EOU 11 11 
00313C 4020 32FA 3038 3138 3 800005 5344 THRTN FOU 13 13 
WRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003142 5052 2195 J XIOo ” OOO00F 2312 FIVTN EQU 15 15 
003144 4020 32FA 3078 2138 3 900020 5340 TERY? FOU § 33 
RKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
00314A OBBB 2198 MVBI xX'BB',R3 SET BUFFER TO B'S 000040 2315 SIXT4 EQU 64 64 
00314C 4524 2F8E 2199 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 000080 2316 ONE28 EQU 128 128 
003150 4724 0004 2200 MVWI 4 R7 SETUP BUFFER LENGTH 000100 2317 TWO56 EQU 256 256 
003154 2BAC 2201 FFN R3 {R5) INIT READ SECTOR ID BUFFER 000400 2318 ONEK EQU 1024 1024 
003156 4020 3086 2F8E 2202 MVA SC&ID,RKDCB+14 DATA ADDR 000800 2319 TWOK EQU 2048 2048 
00315c 5045 2203 J 000C00 2320 THREK EOQU 3072 3072 
00315E 4020 32FA 3068 3308 SWKE MV oorper $353 more OU i a4Pe 
W A WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL — 7 
003164 4020 3076 30A6 2206 MVA WRSID,WKDCB+14 DATA A FFFFPE 2324 M2 EQU -2 ~2 
00316A 503E 2207 J 0 FFFFFD 2325 M3 EQU ~3 -3 
00316C 4020 32FA 2FF8 $208 3 Ss Soe 5358 RUBE EEE IEG EEC RE EEE ESO OEE SRE ISO CE SCHEER EERE EE 
WSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL eK IO HR 
003172 4020 3006 30A6 2210 MVA WRSID, WSDCB+14 DATA ADDR 2329 * * 
003178 5037 2211 J XIO 2330 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
piSad, eee See Sens 2212 : , 2331 : BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. : 
003180 5033 2214 DIAG ee vo SET UP CONTROL BLOCK FOR SVC CALL ‘ 2333 KK RK HK KK KK KK KK KK KK KK eK KK KK KK KK KK KK KK KK KK KK KK KK i Kk ok i Kk Kk 2k ke ok ok Ke ok 
003182 6EOD 2F8 3312 SwRTO 000001 5335 Bst FOU 
D 2F8C WRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 
003186 OBFF 2217 MVBI 255,R3 CLEAR CYCLE STATUS BUFFE g 000002 2336 BS2 EQU) 2 
003188 4524 2FA6 2218 MVA_ CSBOF,RS * TO ALL ONES * 000003 2337 BS3 EQU) 3 
00318C OF16 2219 MVBI 2 7 * 000004 2338 BS4 EQU 4 
003190 GS2u 2F96 5534 nV A BOF, hs : So0008 5340 Bsa EOUe 
M BC F CLEAR DCB BUFFER TO ALL ONES 
003194 OF10 2222 MVBI 6,R * 000007 2341 BST EQU 7 
003196 2BAC 2223 FFN 23 (5) * 000008 2342 BS8 EQU 8 
003198 4020 2F88 0708 2224 MVWI x*6708",SIOIN OVERLAY OLD CONDITION CODES 000009 2343 BSI EQU 9 ; 
00319EB CB25 2F8A 2225 MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE QOOOOA 2344 BS10 EQU 10 
0031A2 4CA3 2226 TBTR (RG, IN CLEAR INTERRUPT RECEIVED CNTL BIT 00000B 2345 BS11 EQU 11 
0031A4 4CA1 2227 TBTR (R4,ER RESET ANY ERROR BEFORE 1/0 COMMAND 00000C 2346 BS12 EQU 12 
0031A6 4C62 2228 TBTS (R4,XI SET EXPECTED INTR CONTROL BIT 00000D 2347 BS13  FQU 13 
0031A8 4724 32F6 2229 MVA OBLK, R7 SET UP CONTROL BLK FOR SUPR OOOO0E 2348 BS14 EQU 14 
0031AC C020 32FD 2230 MVB  IOMOD+1,R0 GET IDCB FUNC/MODIFIER OOO00F 2349 BS15 EQU_ 15 
0031B0 402D 32FC OOFO 2231 RBTWI X'OOFO!, IOMOD REMOVE FUNCTION FROM ‘IOMOD! 2351 COPY T7AXEQ 16MAR78 
0031B6 3022 2232 SRL 4,R0 RIGHT JUSTIFY FUNCTION BITS IN RO 2352 PRINT OFF 
0031B8 F005 2233 CBI 5, RO IDCB FUNCTION = 5? 2916 TTAXEQ 
0031BA 1003 2234 JE SRT 1 YES - ISSUE 'SVC WRITI1! 2 VT A HH A TE I I I RCI IE I I I I IO I I I OR IO IO OK IO HK KK IO TUL 7 6* * 
0031BC 6010 2235 SVC WRITO ISSUE WRITE DPC "4X! OP 2918+ 
0031BE 6802 3242 2236 B XIO8—-4 GO WAIT FOR THE INTERRUPT 2919+* SUB-ROUTINE 
0031c2 6011 2237 SWRT1 SVC WRIT1 ISSUE WRITE DPC 5X! OP 2920+* 
0031C4 6802 3242 2238 B XTO8-4 GO WAIT FOR THE INTERRUPT fasts EXECUTE INPUT AND OUTPUT COMMANDS 
0031C8 4020 32FA 3038 2240 $DGWR MVA  WRDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 2923+* PURPOSE 
0031CE 6802 31EE 2241 B XIODG ISSUE START CS DIAG CMD 2924+ 
22u2 * 2925+ TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
0031D2 4020 32FA 3058 2243 $DGRD MVA RDDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 2926+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
0031D8 6F08 3064 2244 MVW RDDCB+12,R7 GET NO. OF BYTES TO CLEAR 2927+% 
0031DC 6D08 3066 2245 MVW RDDCB+14, P5 ADDR OF READ BUFFER 2928+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
003150 OBFF 2246 MVBI X'FFt CLEAR TO FS 2929+* THE I/O COMMAND. 
0031E2 2BAC 2207 FFN R3 2648) x 2930+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
0031E4 6802 31EE 2248 ISSUE START CS DIAG CMD 2931+* ISSUED BY THIS SUBROUTINE. 
2250 COPY eoE EQU 29 32+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
PPAR LE SES SCS SCCSSCSSS SSS OSSCSCSCSC£SSCSSSCSCSCSC SCLC CSCS COCLCCOCC$§CSCSLS CCS eT SS SST Pett ete 2933+t+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
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DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
3219 $CONC ADDRESS. HEX LOCATION(0000330A) IN CSECT(I7A26  ) LENGTH(2) 1408 1411 
ADD 3322 HEBLK ADDRESS. HEX LOCATION (0000350E) IN CSECT(I7A26  ) LENGTH(2) 
3288 $CONX ADDRESS. HEX LOCATION (000033A0) IN CSECT(I7A26  ) LENGTH(1) 3262 
3371 2282 HTOE ABSOLUTE. HEX VALUE(0000001A) 
3261 SERRS ADDRESS. HEX LOCATION(0000333E) IN CSECT(I7A26  ) LENGTH (6) 3263 
3366 2258 IDLE ABSOLUTE. HEX VALUE (00000002) 
1925 SINTL ADDRESS. HEX LOCATION (00002FC6) IN CSECT(I7A26 ) LENGTH(2) 3008 3010 
36. 3228 2090 ID00 ADDRESS. HEX LOCATION (000030C2) IN CSECT(I7A26  ) LENGTH(2) 
1890 $IOIN ADDRESS. HEX LOCATION (00002F88) IN CSECT(I7A26  ) LENGTH(2) 2071 2179 
2324. 2990 3050. 3130. 3167 3230 1872 IN ABSOLUTE, HEX VALUE (00000023) 
1891 $ISB ADDRESS. HEX LOCATION (00002F8A) IN CSECT(I7A26  ) LENGTH(2) 2226 2994 3006 3127 
2225. 2991 3131. 3172 3231 3189 INTBL ADDRESS. HEX LOCATION (00003302) IN CSECT(I7A26 LENGTH (2) 
1875 $LE ABSOLUTE. HEX VALUE (00000026) 4 
sabe ease 3084 INTER ADDRESS. HEX LOCATION(00003266) IN CSECT(I7A26 LENGTH (2) 
1889 $TUID ADDRESS. HEX LOCATION (00002F86) IN CSECT(I7A26 LENGTH (2) 191 
(ace sone aoe 3093 INTES ADDRESS. HEX LOCATION(0000327E) IN CSECT(1I7A26 LENGTH (2) 
2337 $SWRT1 ADDRESS. HEX LOCATION (000031C2) IN CSECT(I7A26 LENGTH (2) 088 
oabk 3097 INTET ADDRESS. HEX LOCATION (00003286) IN CSECT(I7A26 LENGTH (2) 
102 @DCADD1 ADDRESS. HEX LOCATION (000019B8) IN CSECT (I7A26 LENGTH (1) 3094 
3282 3124 INTOK ADDRESS. HEX LOCATION (0000328A) IN CSECT(I7A26 LENGTH (2) 
103 DDCADD2 ADDRESS. HEX LOCATION(000019BA) IN CSECT(I7A26 LENGTH (1) 3190 
3383 3146 INTRX ADDRESS. HEX LOCATION (000032BA) IN CSECT(I7A26 LENGTH (2) 
39 @FIXT ABSOLUTE, HEX VALUE (00000101) 3141 3144 
789 864 #867 870 #873 888 891 942 945 3127 INTR1 ADDRESS. HEX LOCATION (00003292) IN CSECT(I7A26 LENGTH (2) 
948 963 966 981 984 1023 1026 1041 1044 3092 3096 3098 
1083. 1086 1101 1128 1143 1146 41149 1200 1227 3132 INTR2 ADDRESS. HEX LOCATION(000032A0) IN CSECT(I7A26 LENGTH (1) 
1242 1257 1272 1275 1278 1281 1284 1287 1326 3129 
1329. 1332 1383 1386 1389 1404 1407 1410 1449 3140 INTR3 ADDRESS. HEX LOCATION (000032AE) IN CSECT(I7A26 LENGTH (2) 
1476 1479 1494 1521 1524 1527 1554 1557 1560 3137 
1611 1626 1629 1668 1683 1686 1701 1704 1707 3180 IOBLK ADDRESS. HEX LOCATION (000032F6) IN CSECT(I7A26 LENGTH (2) 
1722 1725 1740 1755 1758 29 2995 3229 
41 @GOTO ABSOLUTE. HEX VALUE (00000200) 3182 IODCB ADDRESS, HEX LOCATION (000032FA) IN CSECT(I7A26 LENGTH (2) 
747 2163 2166 2169 2177 2188 2191 2194-2197 
45 aTUXX ABSOLUTE, HEX VALUE (00000500) 2209 2213 2240 2243 2977 2983 3228 
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N00032 ADDRESS. HEX 
408 2 
N00033 Pe haha Ce a 
N00034 Tet naa HEX 
N00035 i HEX 
N00036 foe HEX 
N00037 ADDRESS. HEX 
423 1012 
N00038 ADDRESS. 
426 1000 
N00039 oo HEX 
N00040 ADDRESS. HEX 
432 1030 
NOOO41 ADDRESS. HEX 
435 988 
NOOO42 hae HEX 
NO00043 Hi ana HEX 
NOOO4Y a aca HEX 
NOOO45 ADDRESS. HEX 
447 1072 
NOO0O046 ADDRESS. HEX 
450 1060 
NO0047 Ae HEX 
NOOO4S8 ADDRESS. HEX 
456 1090 
NOO0049 heer HEX 
N00050 Aeo ee HEX 
N00051 ADDRESS. HEX 
465 1117 
N00052 hee HEX 
N00053 ADDRESS. HEX 
471 1132 
NO0054 ADDRESS. HEX 
474 1105 
N00055 ADDRESS. HEX 
477 1048 
N00056 a HEX 
N00057 te gana HEX 
N00058 fee HEX 
N00059 i aa HEX 
N00060 ADDRESS. HE 
492 118 
NO0061 hoe HEX 
N00062 hoo HEX 
N00063 ADDRESS. HEX 
501 1216 
NO0064 Sone HEX 
NO0065 ADDRESS. HEX 
507 1231 
N00066 aaa HEX 
NO00067 ADDRESS. HEX 
513 1246 
N00068 Bie HEX 
N00069 ADDRESS. HEX 
519 1261 
N00070 ADDRESS. HEX 
522 1204 
N00071 ADDRESS. HEX 
525 1177 
NO00072 ADDRESS. HEX 
528 1165 
N00073 ADDRESS. HEX 
531 1153 
NO0074 ADDRESS. HEX 
534 766 
N00075 EEE HeSe: HEX 
N00076 oH a HEX 
N00077 Sue HEX 
N00078 ADDRESS. HEX 
546 1315 
N00079 ADDRESS. HEX 
549 1303 
N00080 ADDRESS. HEX 
552 1291 
N00081 BRDRESS: HEX 
NO00082 a ada HEX 
N00083 pepe HEX 
nNooo084 EUURESS: HEX 
N00085 ADDRESS. HEX 
567 1372 
N00086 ADDRESS. HEX 
570 1360 
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LOCATION (00002C0a) 
LOCATION (00002C22) 
LOCATION (00002C26) 
LOCATION (00002C2A) 
LOCATION (00002C2E) 
LOCATION (00002C46) 
LOCATION (00002C60) 
LOCATION (00002C72) 
LOCATION (00002C76) 
LOCATION (00002C8E) 
LOCATION (00002CA6) 
LOCATION (00002CAA) 
LOCATION (00002CAE) 
LOCATION (00002CC6) 
LOCATION (00002CCA) 
LOCATION (00002CE8) 
LOCATION (00002D00) 
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LOCATION (00002D08) 
LOCATION (00002D0C) 
LOCATION (00002D24) 
LOCATION (00002D3E) 
LOCATION (00002D42) 
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LOCATION (00002D4A) 
LOCATION (00002D64) 
LOCATION (00002D7C) 
LOCATION (00002D96) 
LOCATION (00002DA8) 
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LOCATION (00002DCC) 
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LOCATION (00002E30) 
LOCATION (00002E34) 
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LOCATION (00002E54) 
LOCATION (00002E58) 
LOCATION (00002E5C) 
LOCATION (00002E74) 
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I7VA2E --- FRU ISOLATION MAP P/N=8327674 EC=375222 PAGE 15 L/A26. -== FRU ISOLATION MAP P/N=8327674 EC=375222 PAGE 15A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
eee 921 954 1002 1062 1074 $1167 2.1206 1305 1873 XE 35630 ga HEX VALUE (00000024) 
1834 OPTN1 ADDRESS. HEX LOCATION(00002F80) IN CSECT(I7A26 ) LENGTH (2) 1871 XI ABSOLUTE. HEX VALUE (00000022) 
1857 REDRESS. HEX £0 2969 XIO aT OBRESS. i EBX LOCATION (00003128 IN CSECT(I7A26 LENGTH (4 
: OPTN3 ADDRESS. HEX LOCATION (OO0002F84) IN CSECT(I7A26 LENGTH (2 ISS. G 
3175 3223 ( ( ) (4) 2164 2167 2175 2182 2189 5492 2195 5303 22b7 ” 
101 PARMARA ADDRESS. HEX LOCATION (00001968) IN CSECT(I7A26 L LENGTH (1) 2211 2214 
745 763 775 787 802 14 826 838 850 3155 XIOCK ADDRESS. HEX LOCATION (000032BC) IN CSECT (I7A26 ) LENGTH (2) 
862 886 904 916 928 940 961 979 997 3007 
1909 1924 1039 1097 1069 1081 1099 1114 1126 3162 XIOCO sab DRESS: HEX LOCATION (000032CE) IN CSECT(I7A26 ) LENGTH (2) 
6 4 86 1198 1213 1225 1240 1255 
1270 1300 1312 1324 =+%*1345 1357 £41369 £41381 421402 S172 XIOCQ ADDRESS. HEX LOCATION (000032E4) IN CSECT (I7A26 ) LENGTH (4) 
1423 1435 1447 1462 1474 1492 1507 1519 1540 3169 
Py hoe ‘aoe re 1609 1624 1642 1654 #41666 2977 XIOCS Be aca HEX LOCATION (O000031FA) IN CSECT(I7A26 ) LENGTH (6) 
1 169 20 1738 1753 
69 PID Se EGCATIONAOOOCTEOO) rm CSECT (X7A26 ) LENGTH (1) 3164 XIOCV saen eee HEX LOCATION (000032D2) IN CSECT(I7A26 ) LENGTH (2) 
ae oP 82 83 84 85 86 87 88 3175 XIOCX aeons HEX LOCATION (000032F0) IN CSECT (I7A26 ) LENGTH (4) 
91 92 93 94 95 96 97 
98 99 100 101 102 103 104 105 106 2972 XIODG ADDRESS. HEX LOCATION (QOOOO31EE) IN CSECT(I7A26 ) LENGTH (6) 
107 108 109 110 111 112 3281 2241 2248 
3317 PIDMSG10 Seg eee HEX VALUE (OOOOF1FO) 3048 XIOER BT aad HEX LOCATION (0000325A) IN CSECT(I7A26 ) LENGTH (2) 
2268 PREP aeaSOLurE: HEX VALUE (0000000C) 2981 XI0O1 a at LOCATION (0000320A) IN CSECT(I7A26 ) LENGTH (4) 
2031 RDDCB SURO eee been Sapo ou Sohne” CSECT (I7A26 ) LENGTH (2) 2994 XIO2 Seen te HEX LOCATION (00003230) IN CSECT(I7A26 ) LENGTH (2) 
2275 RICB a RBaOLUTE. HEX VALUE (00000013) 3006 XIO8 pe eee s gt a noce LON (O00NS 206) IN CSECT(I7A26 ) LENGTH (2) 
2053 RK DCB pAODRESS. HEX LOCATION (00003078) IN CSECT(1I7A26 ) LENGTH (2) 62 XTRNL ABSOLOTE. HEX VALUE (00000001) 
2064 RMDCB sn ODRESS- HEX LOCATION (00003088) IN CSECT(I7A26 ) LENGTH (2) 
2087 RSBA ADDRESS. HEX LOCATION (000030B2 IN CSECT (I7A26 LENGTH (2) We I A I HC SC a KC OC OKC ie CC 2 eK i 2 2c KK KK KE KKK PAST PAGE XK MK KK He KM HM I MEK OK I Me KK 2K he aK fe eK oe 2c oe eo ok ek eK 
pee 1969 1980 1991 2013 shou 2035 2046 205 
1976 RSDCB APU RES a= HEX LOCATION (00003008) IN CSECT(I7A26 ) LENGTH (2) 
0 RO REGISTER. HEX VALUE(00000000) 
2230. .2232 . 2233 
0 R1 REGISTER. HEX VALUE(00000001) 
3270 3273 3276 32 
0 R2 REGISTER. HEX VALUE (00000002) 
3275 3276 
0 R3 REGISTER. HEX eee een 
2116 2118 2170 2173 2180 2181 2184 2187 2198 
2201 2217 2220 2223 2225 2246 2247 2969 2982 
2985 2986 2989 2991 3048 3049 3050 3084 3085 
3091 3095 3124 3125 3130 3143 3175 3220 3222 
3223 3231 3268 3269 3273 3285 
0 R4 REGISTER. HEX eee ose 
2226 2227 2228 2975 2976 2979 2993 2994 2996 
2997 3000 3006 3014 3086 3087 3089 3093 3097 
3126 3127 3128 3138 3139 3140 3142 3145 3155 
3157 3159 3162 3164 3364 
0 R5 REGISTER. HEX See otra 
2117) 2118 2171 2173 #2179 #2181 2185 2187 2199 
2201 2218 2220 2221 2223 2245 2247 2983 2985 
2987 2989 3005 3012 3134 3135 3136 3167 3168 
3170 3172 3221 3222 3267 £=«~3280 
0 R6 REGISTER. HEX pea cor 
2119 2120 2216 2981 3001 3015 3051 3156 3161 
3163 3171 3174 $3176 3226 3232 3234 j$3272 3277 
3278 3365 
0 R7 REGISTER. HEX yarur rooogcooy) 
1936 2115 2172 2178 2186 2200 2219 2222 2229 
2244 2984 2988 2995 3090 3131 3219 3224 3229 
3262 3271 3274 %3286 3289 3362 
1897 SC TID ADDRESS. HEX LOCATION(O0002F8E) IN CSECT (I7A26 ) LENGTH (2) 
1983 2060 2116 2171 #+.%2174 2199 2202 
1987 SKDCB sees. HEX LOCATION (00003018) IN CSECT(I7A26 ) LENGTH (2) 
2266 START eer HEX VALUE (00000003) 
104 SUPSTAT yogpeees HEX LOCATION (000019C4) IN CSECT (I7A26 ) LENGTH (1) 
92 TUMSGWTR a ADDRESS: HEX LOCATION (000018BA) IN CSECT (I7A26 ) LENGTH (1) 
98 TURESUL sap URES Sgt LOCATION (000018C8) IN CSECT(I7A26 ) LENGTH (1) 
1926 TURTN ghBDRESS. HEX LOCATION (00002FC8) IN CSECT (I7A26 ) LENGTH (2) 
74 TUSTATUS anpbRESS. HEX LOCATION (00001818) IN CSECT(I7A26 ) LENGTH (1) 
75 TUWORK ADDRESS. HEX BOER ETON (CoO Otay IN CSECT (I7A26 ) LENGTH (1) 
3264 3265 3266 3268 3324 €8 3369 
1935 T7A02 ADDRESS. HEX aes tt waar tt ile IN CSECT (I7A26 d LENGTH (6) 
755 767 779 794 806 18 830 842 854 
878 896 908 920 932 953 971 989 1001 
1013) 1031 1049 1061 1073 1091 $1106 1118 £1133 
1154 1166 1178 $%4*4190 1205 1217 #%1232 1247 «1262 
1292 1304 1316 1337 1349 1361 1373 1394 21415 
1427 1439 1454 1466 1484 1499 1511 1532 1584 
1565 1577 1589 1601 1616 1634 1646 1658 1673 
1691 4712 #1730 —~ = =«+1745 
3362 T7A10 BUDRES?: HEX LOCATION (00003514) IN CSECT(I7A26 ) LENGTH (4) 
2020 VRDCB apes HEX LOCATION(00003048) IN CSECT (I7A26 ) LENGTH (2) 
2042 WKDCB ,RDDRESs. Hex LOCATION (00003068) IN CSECT(I7A26 ) LENGTH (2) 
2009 WRDCB Bee LOCATION (00003038) IN CSECT(I7A26. ) LENGTH (2) 
2272 WRITO sane HEX VALUE (00000010) 
2273 WRIT1 Boer as HEX VALUE (00000011) 
2081 WRSID ADDRESS. HEX LOCATION (000030A6) IN CSECT(I7A26 ) LENGTH (2) 
1972 2049 2117 2206 2210 
1965 WSDCB gEporeso. nee LOCATION (OO0002FF8) IN CSECT(I7A26 ) LENGTH (2) 


